home *** CD-ROM | disk | FTP | other *** search
/ SGI Hot Mix 17 / Hot Mix 17.iso / HM17_SGI / research / lib / crossp.pro < prev    next >
Encoding:
Text File  |  1997-07-08  |  924 b   |  49 lines
  1. ; $Id: crossp.pro,v 1.3 1997/01/15 03:11:50 ali Exp $
  2. ;
  3. ; Copyright (c) 1983-1997, Research Systems, Inc.  All rights reserved.
  4. ;    Unauthorized reproduction prohibited.
  5. ;
  6. Function Crossp,v1,v2
  7. ;
  8. ;+
  9. ; NAME:
  10. ;    CROSSP
  11. ;
  12. ; PURPOSE:
  13. ;    Evaluate the vector or cross-product of vectors v1 and v2.
  14. ;
  15. ; CATEGORY:
  16. ;    Vector mathematics.
  17. ;
  18. ; CALLING SEQUENCE:
  19. ;    Result = CROSSP(v1, v2)
  20. ;
  21. ; INPUTS:
  22. ;    v1, v2:  Three-element vectors.
  23. ;
  24. ; OUTPUTS:
  25. ;    Returns a 3-element, floating-point vector.
  26. ;
  27. ; COMMON BLOCKS:
  28. ;    None.
  29. ;
  30. ; SIDE EFFECTS:
  31. ;    None.
  32. ;
  33. ; RESTRICTIONS:
  34. ;    Vectors must have 3 elements.
  35. ;
  36. ; PROCEDURE:
  37. ;    v1 X v2 = | i  j  k  | = (b1c2 - b2c1)i + (c1a2-c2a1)j + (a1b2-a2b1)k
  38. ;          | a1 b1 c1 |
  39. ;          | a2 b2 c2 |
  40. ;
  41. ; MODIFICATION HISTORY:
  42. ;    Written, DMS, Aug, 1983;
  43. ;-
  44.     on_error,2                      ;Return to caller if an error occurs
  45.     return,[v1[1]*v2[2]-v2[1]*v1[2], V1[2]*v2[0]-V2[2]*v1[0], $
  46.         v1[0]*v2[1]-v2[0]*v1[1] ]
  47. end
  48.  
  49.